home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utilmus
/
sfxbin20.lha
/
sfx-bin
/
_rexx
/
tester.rexx
< prev
Wrap
OS/2 REXX Batch file
|
1994-12-22
|
1KB
|
56 lines
/* SFX Arexxtester */
options results
ADDRESS REXX_SFX
say '
SFX-ArexxTester
';say;
SelLoader 'RAW';
if RC~=0 then call AppError('SelLoader',RC);
say 'press key to continue';
pull;
LoadSample 'misc:px-b1';
if RC~=0 then call AppError('LoadSample',RC);
say 'press key to continue';
pull;
LoadSample 'misc:px-b2';
if RC~=0 then call AppError('LoadSample',RC);
say 'press key to continue';
pull;
SetActiveBuffer 'px-b1';
if RC~=0 then call AppError('SetActiveBuffer',RC);
say 'press key to continue';
pull;
RenameActiveBuffer 'px-bass1';
if RC~=0 then call AppError('RenameActiveBuffer',RC);
say 'press key to continue';
pull;
ActivateSFX;
if RC~=0 then call AppError('ActivateSFX',RC);
say 'press key to exit';
pull;
ExitSFX;
if RC~=0 then call AppError('ExitSFX',RC);
exit
AppError:procedure
cmd=arg(1);
ret=arg(2);
say '
Application Error
';say;
say 'Command 'cmd' failed with Returncode 'ret;
select
when ret='1' then say ' => unknown command';
when ret='2' then say ' => unknown parameter';
otherwise say ' => unknown returncode';
end
say;
return